home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aav.d64 / catalog.inst (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  15KB  |  423 lines
  1. 10 PRINT"[147]CE PROGRAMME EST EGALEMENT DISPONIBLE"
  2. 15 PRINT"EN FRANCAIS.  POUR EN OBTENIR UNE COPIE
  3. 20 [153]"VEUILLEZ ENVOYER $5.00 A L'AUTEUR:"
  4. 30 [153]"CLAUDE LELIEVRE"
  5. 40 [153]"1220 CHAMONIX"
  6. 50 [153]"CHARLESBOURG. P.Q."
  7. 60 [153]"CANADA. G1H 6N4"
  8. 160 [141] 61160
  9. 910 [139]A[178]0[167]1000
  10. 920 [139]A[178]1[167][137]62000
  11. 1000 [151]53280,15:[151]53281,15
  12. 1010 [153]"LOADDISK CATALOG V871201STOP"
  13. 1020 [153]"THIS PROGRAM IS DISTRIBUTED AS":[153]"GIFTWARE"
  14. 1030 [153]"YOU MAY COPY IT FREELY AND GIVE COPIES"
  15. 1040 [153]"TO EVERYBODY.  IF YOU LIKE THE PROGRAM"
  16. 1050 [153]"PLEASE SEND A GIFTWAIT OF $5.00 TO"
  17. 1060 [153]"THE AUTHOR:"
  18. 1080 [153][166]10)"CLAUDE LELIEVRE"
  19. 1090 [153][166]11)"1220 CHAMONIX"
  20. 1100 [153][166]11)"CHARLESBOURG"
  21. 1110 [153][166]12)"P.Q. CANADA"
  22. 1120 [153][166]14)"G1H 6N4"
  23. 1130 [153]"STOPYOUR SUGGESTIONS AND SPECIAL REQUESTS"
  24. 1140 [153]"ARE WELCOMED. A NEW IMPROVED VERSION"
  25. 1150 [153]"COULD APPEAR IF THERE IS A DEMAND FOR
  26. 1155 PRINT"IT.
  27. 1160 [141] 61160
  28. 2000 [153]"LOAD";[166]10);"INSTRUCTIONS:STOP"
  29. 2010 [153]"   THIS PROGRAM WILL CATALOG YOUR
  30. 2030 PRINT"DISKS.  THE NUMBER OF DISK DIRECTORIES
  31. 2040 [153]"WHICH CAN BE STORED ON A DISK DEPENDS
  32. 2050 PRINT"UPON THEIR AVERAGE LENGTH.  YOU MAY USE
  33. 2070 [153]"THIS PROGRAM WITH EITHER ONE OR TWO"
  34. 2075 [153]"DISK DRIVES."
  35. 2080 [153][166]15)"POKESTARTINGSTOP"
  36. 2090 [153]"   THE FIRST OPERATION WHICH IS"
  37. 2100 [153]"PERFORMED BY THE PROGRAM IS TO READ"
  38. 2110 [153]"THE SEQUENTIAL FILE CLRMASTER DIRECTSTOP"
  39. 2120 [153]"WHICH CONTAINS THE MASTER DIRECTORY."
  40. 2130 [153]"THE FIRST TIME THAT THE PROGRAM WILL
  41. 2140 PRINT"EXECUTE, THIS FILE MAY NOT EXIST,"
  42. 2150 PRINT"IN WHICH CASE THE DRIVE RED LIGHT WILL
  43. 2160 [153]"FLASH.  THEN THE MAIN MENU WILL APPEAR
  44. 2170 PRINT"ON THE SCREEN.  THE RELATIVE FILE"
  45. 2173 PRINT"DIRECTORY[146] MUST BE CREATED BY THE USER
  46. 2175 [153]"BY USING THE PROPER OPTION.
  47. 2180 GOSUB 61160
  48. 3000 PRINT"[147]"SPC(10)"OPTIONS[144]"
  49. 3010 PRINT"0.  END: LOAD CATALOG[144]"
  50. 3020 PRINT"1.  KEYBOARD AND HOW TO CHOOSE OPTIONS[144]
  51. 3030 [153]"2.  FORMASTER DIRECTORYSTOP"
  52. 3040 [153]"3.  VERIFYRELATIVE FILESTOP"
  53. 3050 [153]"4.  DEFGLOBAL FILESTOP"
  54. 3060 [153]"5.  PRINT#VARIOUS LISTSSTOP"
  55. 3070 [153]"6.  POKEOPTIONS RELATED TO DISKSTOP"
  56. 3080 [153]"7.  COMMENTSSTOP"
  57. 3090 [153]"8.  CONTSEARCH FOR SPECIFIC FILESTOP"
  58. 3100 [153]"9.  CLRPARAMETER MODIFICATIONSSTOP"
  59. 3110 [153]"10. SPECIAL OPTIONSSTOP"
  60. 3130 [153]"11. FORSCREEN/PRINTERSTOP"
  61. 3140 [153]"12. VERIFYREAD DISK DIRECTORYSTOP"
  62. 3145 [153]"13. DEFMEMORYSTOP"
  63. 3150 [153]"ENTER YOUR CHOICE: 0 TO 13"
  64. 3200 [133] A$:[139]A$[178]""[167]3200
  65. 3300 A[178][197](A$)[170]1:[139]A[179]1[176]A[177]14[167]3200
  66. 3400 [145]A[137]10000,11000,12000,13000,20000,21000,14000,22000,23000,16000,3500
  67. 3500 [145](A[171]10)[137] 24000,25000,26000,27000,28000
  68. 10000 [137]62000
  69. 11000 [153]"LOADKEYBOARD AND HOW TO SELECT OPTIONSSTOP"
  70. 11010 [153]"THE CURSOR KEYS ARE USED TO SELECT"
  71. 11020 [153]"OPTIONS.
  72. 11030 PRINT"CURSOR DOWN[144]: GO DOWN ONE OPTION LINE.
  73. 11050 [153]"CURSOR UPSTOP: GO UP ONE OPTION LINE.
  74. 11070 PRINT"RETURN[144]: SELECT OPTION.
  75. 11080 [153]"WITHIN SOME OPTIONS WHERE A FULL"
  76. 11090 [153]"PAGE OF INFORMATION IS SHOWN, CURSOR"
  77. 11100 [153]"KEYS WILL DISPLAY PREVIOUS OR NEXT
  78. 11110 PRINT"PAGES OF INFORMATION."
  79. 11120 PRINT"IN ORDER TO FACILITATE OPERATIONS"
  80. 11130 PRINT"THE [156]RIGHT CURSOR[144] KEY IS FUNCTIONNALLY
  81. 11140 [153]"IDENTICAL THE THE UP CURSOR KEY.
  82. 11150 PRINT"THE JOYSTICK (PORT 2) CAN ALSO BE USED:"
  83. 11160 PRINT"UP AND DOWN ACT LIKE THE CURSOR KEYS"
  84. 11180 PRINT"WHILE THE [149]FIRE[144] BUTTON ACTS LIKE
  85. 11190 [153]"RETURNSTOP."
  86. 11200 [141]61160
  87. 11300 [153]"LOADSPECIAL FUNCTIONS:STOP"
  88. 11310 [153]"LEFT CURSORSTOP OU DELSTOP: ERASE
  89. 11320 PRINT"  CHARACTER TO THE LEFT"
  90. 11330 PRINT"F1[146]: BORDER COLOR +1"
  91. 11340 PRINT"F2[146]: BORDER COLOR -1"
  92. 11350 PRINT"F3[146]: BACKGROUND COLOR +1"
  93. 11360 PRINT"F4[146]: BACKGROUND COLOR -1"
  94. 11370 PRINT"F5[146]: CHARACTER COLOR +1"
  95. 11380 PRINT"F6[146]: CHARACTER COLOR -1"
  96. 11390 PRINT"RESTORE[144]: RETURN TO MAIN MENU"
  97. 11400 PRINT"[154]STOP[144]: STOPS SOME FUNCTIONS."
  98. 11500 GOSUB61160:GOTO3000
  99. 12000 PRINT"[147][129]MASTER DIRECTORY[144]"
  100. 12010 PRINT"THE MASTER DIRECTORY IS PRESENT IN
  101. 12020 [153]"MEMORY AND ON THE DISK UNDER THE NAME
  102. 12030 PRINT"[150]MASTER DIRECT[144].  IN ORDER TO EXECUTE
  103. 12040 [153]"FAST, THE PROGRAM DOES NOT UPDATE
  104. 12050 PRINT"AUTOMATICALLY THAT FILE ON THE DISK.
  105. 12060 [153]"HOWEVER, THE USER MUST MAKE CERTAIN"
  106. 12070 [153]"THAT THIS FILE IS UPDATED ON THE DISK
  107. 12080 PRINT"BY CHOOSING THE APPROPRIATE OPTION.
  108. 12090 [153]"YOU MUST NOT EXIT THE PROGRAM WITHOUT
  109. 12100 PRINT"SAVING THE UPDATED MASTER DIRECTORY IF"
  110. 12110 PRINT"YOU WISH TO KEEP ALL THE NEW INFORMATION"
  111. 12170 PRINT"  AS AN ADDED PRECAUTION, THE OPTION"
  112. 12180 PRINT"RETURN TO BASIC[144] WILL ASK IF YOU WISH"
  113. 12190 PRINT"TO SAVE THE MASTER DIRECTORY TO DISK."
  114. 12200 GOSUB61160
  115. 12210 PRINT"[147]THE OPTIONS ARE:"
  116. 12220 PRINT"- RETURN TO MAIN MENU
  117. 12230 [153]"- READ MASTER DIRECTORY FROM DISK.
  118. 12240 PRINT"  IF NEW DISK DIRECTORIES HAVE BEEN
  119. 12250 [153]"  READ SINCE THE MASTER DIRECTORY WAS
  120. 12260 PRINT"  LAST SAVED TO DISK, THESE WILL BE
  121. 12270 [153]"  ERASED FROM MEMORY.
  122. 12290 PRINT"- SAVE MASTER DIRECTORY TO DISK
  123. 12300 [153]"- READ DIRECTORY OF A NEW DISK
  124. 12310 PRINT"- LIST OF DIRECTORIES IN MEMORY
  125. 12330 [153]"- DELETE DIRECTORIES IN MEMORY: IF YOU
  126. 12340 PRINT"  WISH TO HAVE A PERMANENT CHANGE, YOU
  127. 12350 [153]"  MUST SAVE THE MASTER DIRECTORY TO
  128. 12360 PRINT"  DISK.
  129. 12500 [141]61160
  130. 12610 [137]3000
  131. 13000 [153]"LOADVERIFYRELATIVE FILESTOP"
  132. 13010 [153]"DIRECTORIES OF EACH OF THE ALREADY
  133. 13020 PRINT"CATALOGUED DISKS ARE CONTAINED WITHIN
  134. 13040 [153]"THE RELATIVE FILE CLRDIRECTORYSTOP.  THIS
  135. 13050 PRINT"FILE MUST BE CREATED BY THE USER. NOTE
  136. 13060 [153]"THAT CREATION PARAMETERS OF THIS FILE
  137. 13070 PRINT"CAN BE MODIFIED BY THE USER."
  138. 13080 PRINT"THE OPTIONS ARE:"
  139. 13090 PRINT"- RETURN TO MAIN MENU
  140. 13095 [153]"- CREATION OF RELATIVE FILE DIRECTORYWAIT."
  141. 13100 [153]"- WRITE LAST RECORD: THE PROGRAM WILL
  142. 13130 PRINT"  EXECUTE MUCH FASTER IF THE RECORDS
  143. 13140 [153]"  HAVE BEEN ALREADY CREATED.
  144. 13170 PRINT"- MODIFICATION OF PARAMETRES RELATED TO
  145. 13180 [153]"  RELATIVE FILE
  146. 13400 GOSUB61160
  147. 13500 GOSUB13600:GOTO 3000
  148. 13600 PRINT"[147]RELATIVE FILE PARAMETERS[144]"
  149. 13610 PRINT"- MAXIMUM NUMBER OF RECORDS
  150. 13630 [153]"- RECORD LENGTH
  151. 13640 PRINT" THE CHOICE OF THE MAXIMUM NUMBER OF
  152. 13641 [153]"RECORDS IS IMPORTANT BECAUSE IT IS
  153. 13642 PRINT"PREFERABLE TO HAVE CREATED A FAIRLY
  154. 13643 [153]"LARGE NUMBER OF RECORDS IN THE RELATIVE
  155. 13644 PRINT"FILE."
  156. 13645 PRINT" RECORD LENGTH AFFECTS THE AMOUNT OF
  157. 13646 [153]"UNUSED SPACE ON THE DISK: IF THE
  158. 13647 PRINT"DIRECTORIES ARE SMALL AND THE RECORDS
  159. 13648 [153]"ARE LARGE, THEN MUCH SPACE WILL BE
  160. 13649 PRINT"WASTED ON THE DISK.  HOWEVER A TOO"
  161. 13650 PRINT"SMALL RECORD LENGTH WILL INCREASE THE
  162. 13651 [153]"SPACE REQUIRED IN THE SEQUENTIAL FILE
  163. 13652 PRINT"WHERE THE RECORD POINTERS ARE LOCATED.
  164. 13654 [153]" IT IS VERY IMPORTANT TO MAKE FREQUENT
  165. 13655 PRINT"BACK-UP COPIES OF YOUR WORKING DISK.
  166. 13656 [153]"IF THE DISK BECOMES ALMOST FULL, THE
  167. 13657 PRINT"PROGRAM MAY NOT BE ABLE TO WRITE BACK
  168. 13658 [153]"THE SEQUENTIAL FILE AND ALL INFORMATION
  169. 13659 PRINT"COULD BE LOST.
  170. 13660 [141]61160
  171. 13664 [153]"LOAD- CHOICE BETWEEN AN ORDERED LIST OF
  172. 13665 PRINT"  FILES OR A LIST OF FILES AS THEY
  173. 13670 [153]"  APPEAR ON THE DISKS.
  174. 13720 PRINT"- MAXIMUM NUMBER OF DIRECTORIES."
  175. 13730 PRINT"THE USER MAY SET THE MAXIMUM NUMBER
  176. 13740 [153]"OF DISKS TO BE CATALOGUED.  THIS
  177. 13770 PRINT"OPTION IS USEFUL IN ORDER TO PREVENT
  178. 13780 [153] "GETTING AN OVERLOADED WORKING DISK
  179. 13790 PRINT "AND GET INTO SERIOUS PROBLEMS.
  180. 13900 [141]61160:[142]
  181. 14000 [153]"LOADDEFDISK OPERATIONS STOP"
  182. 14005 [153]"THE OPTIONS ARE:"
  183. 14008 [153]"- RETURN TO MAIN MENU
  184. 14010 PRINT"- READ DISK ERROR CHANNEL
  185. 14050 [153]"- SEND DISK COMMANDS:
  186. 14080 PRINT"  N:NAME,ID[144]: FORMAT DISK
  187. 14090 [153]"  S:NAMESTOP: SCRATCH FILE NAMEWAIT"
  188. 14100 [153]"  R:NAME1=NAME2STOP: RENAME FILE
  189. 14110 PRINT"     NAME2[146] TO NAME1[146]"
  190. 14120 PRINT"  C:NAME1=NAME2[144]: COPY FILE
  191. 14130 [153]"     NAME2WAIT TO FILE  NAME1"
  192. 14140 [153]"  ISTOP: INITIALISE DISK DRIVE
  193. 14150 PRINT"  V[144]: VALIDATE DISK BAM
  194. 14155 [153]"- READ DISK DIRECTORY
  195. 14156 PRINT"- MODIFICATION OF PARAMETERS RELATED
  196. 14157 [153]"  TO DISK OPERATIONS
  197. 14160 GOSUB61160:GOSUB 14200:GOTO 3000
  198. 14200 PRINT"[147][156]MODIFICATION OF GENERAL PARAMETRES:[144]
  199. 14210 [153]" -PRINTING UNIT: 3 = SCREEN
  200. 14215 PRINT"                 4 = PRINTER
  201. 14220 [153]"- PRINTER DEVICE NUMBER (4)
  202. 14230 PRINT"- PRINTER SECONDARY ADDRESS (0)
  203. 14231 [153]" THE FOLLOWING ITEMS ARE USEFUL DURING
  204. 14232 PRINT"LISTS OR GLOBAL FILE OPERATIONS.
  205. 14235 [153]"- STARTING FILE # : LOWEST BYTE
  206. 14236 PRINT"- STARTING FILE # : HIGHEST BYTE
  207. 14237 [153]"- ENDING   FILE # : LOWEST BYTE
  208. 14238 PRINT"- ENDING   FILE # : HIGHEST BYTE
  209. 14239 [141]61160
  210. 14240 [153]"LOADDISK DRIVE #1 (MASTER)WAIT: 8 TO 11.
  211. 14270 PRINT"DISK DRIVE #2[146]: 8 TO 11. THIS DRIVE
  212. 14280 [153]" WILL CONTAIN THE DISKS TO BE
  213. 14290 PRINT" CATALOGUED, THE GLOBAL FILE, ETC."
  214. 14300 PRINT"DEFAULT DISK DRIVE[146]: THIS DRIVE MAY
  215. 14310 [153]" CORRESPOND TO EITHER DRIVE  #1 OR #2.
  216. 14320 PRINT" THIS IS WHERE DISK COMMANDS WHICH NEED
  217. 14330 [153]" ONLY ONE DISK DRIVE WILL BE SENT.
  218. 14380 GOSUB61160
  219. 14400 PRINT"[147]CASE #1[146]: YOU ONLY HAVE ONE DISK
  220. 14410 [153]" DRIVE.  THEN THE VALUES OF THE 3 DISK
  221. 14420 PRINT" DRIVE UNITS MUST BE EQUAL TO THE
  222. 14430 [153]" PHYSICAL VALUE OF THE DISK DRIVE (8).
  223. 14450 PRINT"CASE #2[146]: YOU HAVE 2 DISK DRIVES.
  224. 14460 [153]" THEN THE VALUES ASSIGNED TO EACH OF
  225. 14470 PRINT" THE DRIVES MUST BE DIFFERENT. IF
  226. 14480 [153]" THE PHYSICAL VALUES OF THE UNITS ARE
  227. 14490 PRINT" EQUAL, THEN ONE OF THESE VALUES MUST
  228. 14500 [153]" BE CHANGED BY SOFTWARE.  THIS OPERATION
  229. 14510 PRINT" IS SIMPLE: AFTER HAVING CHOSEN THE
  230. 14520 [153]" VALUES FOR DRIVES #1 AND #2, YOU SET
  231. 14530 PRINT" THE DEFAULT DISK DRIVE VALUE TO THE
  232. 14540 [153]" PHYSICAL DRIVE VALUE (8) AND CHOOSE
  233. 14550 PRINT" THE OPTION TO CHANGE THE DISK DRIVE
  234. 14560 [153]" VALUE.  THEN YOU FOLLOW INSTRUCTIONS
  235. 14570 PRINT" GIVEN BY THE PROGRAM.
  236. 14900 [141]61160:[142]
  237. 15160 [153]" LOADGLOBAL FILE PARAMETERSSTOP: "
  238. 15180 [153]"YOU SELECT A PARAMETER WITH
  239. 15190 PRINT"S[146] WHICH CORRESPONDS TO YES[144].
  240. 15220 [153]"YOU DESELECT AN ITEM WITH DWAIT."
  241. 15230 [153]"IF YOU PRESS ON VERIFYRETURNSTOP YOU GO BACK
  242. 15240 PRINT"TO MAIN MENU.
  243. 15300 [153]"5 FIELDS MAY BE SELECTED:
  244. 15310 PRINT"FILENAME[146]: FROM 1 TO 16 CHARACTERS."
  245. 15320 PRINT"  THE ENDING SHIFTED SPACE CHARACTERS
  246. 15330 [153]"  (160) ARE EXCLUDED.
  247. 15350 PRINT"ID[146]: DISK ID: ALWAYS 2 CHARACTERS.
  248. 15360 [153]"CODEWAIT: USER DEFINED CODE: 1 TO 5
  249. 15370 PRINT"  CHARACTERS."
  250. 15380 PRINT"NUMBER OF BLOCKS[146]: 3 CHARACTERS"
  251. 15390 PRINT"  WHICH ARE THE NUMBER OF BLOCKS USED
  252. 15400 [153]"  BY THE FILE
  253. 15410 PRINT"FILETYPE[146]: 1 CODED CHARACTER (SEE
  254. 15430 [153]"  1541 MANUAL).  THE 4 FILETYPES ARE:
  255. 15440 PRINT"  PRG, REL, USR ET SEQ."
  256. 15450 GOSUB61160:RETURN
  257. 15500 PRINT"[147]GLOBAL FILE CREATION[146]"
  258. 15510 PRINT"WHEN THE FIELDS TO BE USED HAVE BEEN
  259. 15520 [153]"CHOSEN, YOU CAN THE CREATE A GLOBAL
  260. 15530 PRINT"FILE.  WITH ONLY ONE DISK DRIVE
  261. 15540 [153]"THE GLOBAL FILE WILL BE WRITTEN ON THE"
  262. 15550 [153]"MASTER DISK.  WITH 2 DISK DRIVES, THIS"
  263. 15560 [153]"FILE WILL BE WRITTEN TO DRIVE #2."
  264. 15570 [153]"IF YOU WISH TO RESTRICT THE NUMBER OF
  265. 15580 PRINT"DIRECTORIES, YOU MUST THEN GO TO THE"
  266. 15600 PRINT"OPTION PARAMETER MODIFICATION[144] WHERE
  267. 15610 [153]"YOU CHANGE THE VALUES ASSIGNED TO
  268. 15620 PRINT"STARTING AND ENDING FILE NUMBERS.
  269. 15720 [141]61160
  270. 15730 [153]"LOADORDERING THE GLOBAL FILE:STOP"
  271. 15750 [153]"IF YOU HAVE 2 DISK DRIVES, THE INITIAL
  272. 15760 PRINT"GLOBAL FILE SHOULD BE ON DRIVE #2, AND
  273. 15770 [153]"THE ORDERED FILE WILL BE CREATED ON
  274. 15780 PRINT"DRIVE #1.
  275. 15815 [141]61160
  276. 15820 [153]"LOADGLOBAL FILE PRINTINGSTOP"
  277. 15840 [153]"YOU MUST MAKE SURE THAT YOUR PRINTER IS
  278. 15850 PRINT"READY.  THE PROGRAM WILL ASK FOR
  279. 15860 [153]"THE NUMBER OF FIELDS PER RECORD.
  280. 15880 PRINT"THIS NUMBER HAS BEEN DEFINED BY YOU
  281. 15890 [153]"WHEN YOU HAVE CREATED THE GLOBAL FILE.
  282. 15900 PRINT"THERE IS AN AUTOMATIC TABBING AT THE"
  283. 15910 PRINT"BEGINNING OF EACH FIELD.  THE DEFAULT
  284. 15920 [153]"VALUES ARE: 0,16,32,48 ET 64.
  285. 15990 GOSUB61160:GOTO3000
  286. 16000 PRINT"[147][151]PARAMETERS[144]"
  287. 16010 PRINT"THE OPTIONS ARE:"
  288. 16020 PRINT"- RETURN TO MAIN MENU.
  289. 16030 [153]"- GENERAL PARAMETERS.
  290. 16040 PRINT"- RELATIVE FILE PARAMETERS.
  291. 16050 [153]"- TABBING PARAMETERS DURING GLOBAL
  292. 16060 PRINT"  FILE PRINTING."
  293. 16070 PRINT"- MESSAGE COLORS.
  294. 16080 [153]"- GLOBAL FILE PARAMETERS.
  295. 16500 GOSUB61160
  296. 16520 GOSUB 14200:GOSUB 13600
  297. 16530 PRINT "[147]MESSAGE COLORS.
  298. 16590 [153]"YOU CAN MODIFY COLOR ASSIGNATIONS:
  299. 16600 PRINT "BLACK MAY BECOME WHITE, RED MAY BECOME
  300. 16610 [153]"BLUE, ETC.
  301. 16620 GOSUB 61160:GOSUB 15160
  302. 16900 GOTO3000
  303. 20000 PRINT"[147][156]GLOBAL FILE[144]"
  304. 20010 PRINT"A GLOBAL FILE IS NECESSARY IF YOU WISH
  305. 20020 [153]"TO PRODUCE A SEQUENTIAL FILE WITH A
  306. 20030 PRINT"SELECTED LIST OF FILES.  THE PARAMETERS
  307. 20050 [153]"NEEDED TO PRODUCE SUCH A LIST ARE
  308. 20060 PRINT"USER DEFINABLE WITH THE OPTION:
  309. 20070 [153]"MODIFICATION OF GLOBAL FILE PARAMETERS.
  310. 20110 PRINT"THE OPTIONS ARE:"
  311. 20120 PRINT"- RETURN TO MAIN MENU
  312. 20130 [153]"- GLOBAL FILE CREATION.
  313. 20150 PRINT"- ORDER A GLOBAL FILE: A SORT IS
  314. 20160 [153]"  PERFORMED AND A NEW FILE CREATED.
  315. 20500 GOSUB61160:GOSUB15160:GOTO 15500
  316. 21000 PRINT"[147][156]VARIOUS LISTS[144]"
  317. 21010 PRINT"VARIOUS LISTS ARE PRODUCED BY THE
  318. 21020 [153]"PROGRAM:"
  319. 21030 [153]"- LIST OF DISKS WITH A MINIMUM NUMBER
  320. 21040 PRINT"  OF FREE BLOCKS.
  321. 21050 [153]"- LIST OF DISKS WITH A MAXIMUM NUMBER
  322. 21060 PRINT"  OF FREE BLOCKS.
  323. 21070 [153]"- LIST OF DISK IDS.
  324. 21080 PRINT"- LIST OF DISK CODES.
  325. 21090 [153]"- LIST OF A SERIES OF DIRECTORIES.
  326. 21100 PRINT"- SHOW LAST DIRECTORY READ.
  327. 21500 [141]61160:[137]3000
  328. 22000 [153]"LOADCLRCOMMENTS:STOP"
  329. 22010 [153]"COMMENTS MAY BE ATTACHED TO EITHER
  330. 22020 PRINT"DIRECTORIES OR FILES. THE OPTIONS
  331. 22030 [153]"ARE ACCESSED BY F7 FOLLOWED BY:"
  332. 22050 [153]"BD: BLANK DIRECTORY COMMENTS
  333. 22060 PRINT"BF: BLANK FILE COMMENTS
  334. 22070 [153]"DD: SAVE DIRECTORY COMMENTS TO DISK
  335. 22080 PRINT"DF: SAVE FILE COMMENTS TO DISK
  336. 22110 [153]"H : HELP SCREEN
  337. 22120 PRINT"K : KILL CURRENT LINE
  338. 22130 [153]"L : REMOVE CURRENT LINE
  339. 22140 PRINT"PD: SAVE DIRECTORY COMMENTS TO MEMORY
  340. 22160 [153]"PF: SAVE FILE COMMENTS TO MEMORY
  341. 22180 PRINT"RD: RETURN TO DIRECTORY SELECTION
  342. 22190 [153]"RF: RETURN TO FILE SELECTION
  343. 22200 PRINT"+ : SELECT NEXT FILE
  344. 22210 [153]"- : SELECT PREVIOUS FILE
  345. 22220 PRINT"NOTE: PLEASE BACK-UP YOUR WORKING DISK
  346. 22230 [153]"BEFORE USING THIS OPTION.
  347. 22500 GOSUB61160:GOTO3000
  348. 23000 PRINT"[147][156]SEARCH FOR A SPECIFIC FILE[144]"
  349. 23010 PRINT"YOU JUST HAVE TO GIVE THE NAME OF THE
  350. 23020 [153]"DESIRED FILE.  THERE ARE 2 WILDCARD
  351. 23030 PRINT"SYMBOLS: ? AND *.  THE SYMBOL ?
  352. 23060 [153]"MEANS THAT ANY CHARACTER MAY BE FOUND
  353. 23070 PRINT"AT THAT POSITION.  FOR EXAMPLE, ?ORT
  354. 23080 [153]"CAN MEAN PORT, SORT, ETC.
  355. 23120 PRINT"SYMBOL * MEANS THAT YOU ARE LOOKING
  356. 23130 [153]"FOR A FILENAME WHOSE NAME BEGINS
  357. 23140 PRINT"WITH THE CHARACTERS THAT PRECEED *.
  358. 23150 [153]"FOR EXAMPLE TES* MEANS THAT WE ARE
  359. 23160 PRINT"SEARCHING FOR ALL FILENAMES WHOSE
  360. 23170 [153]"FIRST 3 CHARACTERS ARE TES.
  361. 23500 GOSUB61160:GOTO3000
  362. 24000 PRINT"[147][156]SPECIAL OPTIONS:[144]"
  363. 24010 PRINT"- RETURN TO MAIN MENU.
  364. 24020 [153]"- EMPTY MASTER DIRECTORY IN MEMORY
  365. 24030 PRINT"  WITHOUT ERASING THE ONE ON DISK.
  366. 24040 [153]"- ALLOCATE BAMREC: THIS OPTION SHOULD
  367. 24050 PRINT"  NEVER BE NECESSARY.  IF THE PROGRAM
  368. 24060 [153]"  SEEMS TO BE CONFUSED ABOUT THE
  369. 24070 PRINT"  RECORDS IN ITS MEMORY THIS OPTION
  370. 24080 [153]"  MAY THEN BE USED.
  371. 24100 PRINT"- JUMP TO ADDRESS $C000: IF YOU HAVE
  372. 24110 [153]"  ML MONITOR OR A PROGRAM RESIDING AT
  373. 24120 PRINT"  THAT ADDRESS IT WILL BE EXECUTED.
  374. 24130 [153]"  THIS MAY BE USED IN CASE OF A PROGRAM
  375. 24140 PRINT"  CRASH TO RECOVER SOME OF THE INFORMA-
  376. 24150 [153]"  TION: FOR EXPERTS ONLY!
  377. 24160 PRINT"  TO GO BACK TO THE PROGRAM:
  378. 24170 [153]"  SYS (2064) OR JMP $0810.
  379. 24180 PRINT"- RETURN TO BASIC.  IF YOU WISH TO GO
  380. 24190 [153]"  BACK TO THE PROGRAM: SYS (2064) AND
  381. 24200 PRINT"  CHOOSE NOT TO INITIALISE MEMORY.
  382. 24500 [141]61160:[137]3000
  383. 25000 [153]"LOADCLRCHOICE: SCREEN/PRINTERSTOP"
  384. 25010 [153]"- RETURN TO MAIN MENU
  385. 25020 PRINT"- SCREEN: OUTPUT TO SCREEN.
  386. 25040 [153]"- PRINTER: OUTPUT TO PRINTER.
  387. 25500 GOSUB61160:GOTO3000
  388. 26000 PRINT"[147][156]READ DISK DIRECTORY[144]"
  389. 26010 PRINT"  THE DIRECTORY LIST WILL APPEAR ON
  390. 26020 [153]"SCREEN (OR PRINTER) BUT WILL NOT BE
  391. 26030 PRINT"ADDED TO THE LIST OF DIRECTORIES.  THIS
  392. 26040 [153]"OPTION IS USED TO BROWSE THROUGH A
  393. 26050 PRINT"SERIES OF DISK DIRECTORIES.
  394. 26170 [141]61160:[137]3000
  395. 27000 [153]"LOADCLRMEMORYSTOP"
  396. 27010 [153]"  THIS OPTION IS USED TO VISUALISE
  397. 27020 PRINT"THE MEMORY CONTENTS.  THE FIRST LINE
  398. 27040 [153]"IS THE NUMBER OF DIRECTORIES IN
  399. 27050 PRINT"MEMORY.  THE SECOND LINE CONTAINS
  400. 27060 [153]"STARTING AND ENDING POSITIONS OF THE
  401. 27070 PRINT"LIST OF DIRECTORIES.  THE MAXIMUM
  402. 27080 [153]"SPACE WHICH CAN BE USED BY THAT LIST
  403. 27100 PRINT"IS 9728 BYTES.  THE THIRD LINE
  404. 27110 [153]"CONTAINS THE NUMBER OF FILES OF
  405. 27120 PRINT"THE LAST READ DIRECTORY.  ON THE
  406. 27130 [153]"NEXT LINE YOU FIND STARTING AND ENDING
  407. 27140 PRINT"POSITIONS FOR THE LIST OF FILES WHICH
  408. 27150 [153]"CAN BE 4106 BYTES LONG.  FINALLY
  409. 27170 PRINT"THE LAST LINE CONTAINS RELATIVE FILE
  410. 27180 [153]"INFORMATION.
  411. 27270 GOSUB61160:GOTO3000
  412. 61160 PRINT"PRESS RETURN OR ENTER PASSWORD";
  413. 61170 GET A$:IFA$=""THEN61170
  414. 61180 B=ASC(A$):IFB=13THEN61200
  415. 61190 IFB=3THENA=1:GOTO10
  416. 61200 RETURN
  417. 62000 POKE53280,0:POKE53281,0
  418. 62005 PRINT"[147][144]LOAD";CHR$(34);"CATALOG";CHR$(34);",8,1"
  419. 62010 PRINT""
  420. 62020 PRINT"RUN"SPC(10)"LOADING PROGRAM[144]"
  421. 62030 POKE631,19:POKE632,13:POKE633,13
  422. 62040 POKE198,3:NEW
  423.